home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / gr0dmp.lst < prev    next >
File List  |  1995-04-22  |  1KB  |  19 lines
  1. 32200 REM " SCRNPRTT.SUB   Ver 1.0 
  2. 32210 REM " 02/26/85  - Bob Geayer 
  3. 32220 REM " CIS ppn:     71425,463 
  4. 32230 REM " User Group: JACS  (NJ) 
  5. 32240 REM VARIABLES: A, E, HOME, INVERSE, L, P 
  6. 32245 REM " Dumps Graphics 0 screen to            printer (or other device) 
  7. 32250 TRAP 32340:CLOSE #5:OPEN #5,8,0,"D2:TST":? #5:SOUND 0,0,0,0 
  8. 32260 HOME=PEEK(88)+256*PEEK(89) 
  9. 32270   FOR L=0 TO 23:  FOR P=0 TO 39:A=PEEK(L*40+P+HOME) 
  10. 32280     INVERSE=0:IF A>127 THEN INVERSE=1:A=A-128 
  11. 32290     IF A<64 THEN A=A+32:GOTO 32310 
  12. 32300     IF A>63 AND A<96 THEN A=A-64 
  13. 32310     IF INVERSE THEN A=A+128:REM ********* Delete this line if your printer 
  14. 32320     REM or interface can't handle inverse. 
  15. 32330     ? #5;CHR$(A);:NEXT P:? #5:NEXT L:TRAP 40000:CLOSE #5:RETURN  
  16. 32340 E=PEEK(195):L=PEEK(186)+256*PEEK(187):IF E<>138 THEN ? :? "ERROR ";E:LIST L:CLOSE #5:STOP  
  17. 32350 ? "IS  PRINTER  ONLINE?":  FOR A=15 TO 0 STEP -0.1:SOUND 0,120,10,A:NEXT A 
  18. 32360 ? "IS INTERFACE ONLINE?":  FOR A=15 TO 0 STEP -0.4:SOUND 0,120,10,A:NEXT A:GOTO L 
  19.